home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / waves-anim.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-06-30  |  3.0 KB  |  105 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; (at your option) any later version.  
  8. ; 
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13. ; 
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ;
  18. ;
  19. ; waves-anim.scm   version 1.01   1997/12/13
  20. ;
  21. ; CHANGE-LOG:
  22. ; 1.00 - initial release
  23. ; 1.01 - some code cleanup, no real changes
  24. ;
  25. ; Copyright (C) 1997 Sven Neumann <sven@gimp.org>
  26. ; 
  27. ;  
  28. ; Makes a copy of your image and creates an animation of the active layer
  29. ; as if a stone was thrown into the image. The animation may be saved with 
  30. ; the gif-plug-in. 
  31.  
  32. (define (script-fu-waves-anim img
  33.                   drawable
  34.                   amplitude
  35.                   wavelength
  36.                   num-frames
  37.                   invert)
  38.   (let* ((amplitude (max 0 amplitude))
  39.      (wavelength (max 0 wavelength))
  40.      (num-frames (max 1 num-frames))
  41.      (remaining-frames num-frames)
  42.      (phase 0)
  43.      (phaseshift (/ 360 num-frames))
  44.          (image (car (gimp-image-duplicate img)))
  45.      (source-layer (car (gimp-image-get-active-layer image))))
  46.    
  47.   (gimp-image-undo-disable image)
  48.  
  49.   (if (= invert TRUE)
  50.       (set! phaseshift (- 0 phaseshift)))
  51.   
  52.   (while (> remaining-frames 1)
  53.      (let* ((waves-layer (car (gimp-layer-copy source-layer TRUE)))
  54.         (layer-name (string-append "Frame "
  55.                        (number->string
  56.                         (- (+ num-frames 2)
  57.                            remaining-frames) 10)
  58.                        " (replace)")))
  59.          (gimp-layer-set-preserve-trans waves-layer FALSE)
  60.      (gimp-image-add-layer image waves-layer -1)
  61.      (gimp-drawable-set-name waves-layer layer-name)
  62.      
  63.      (plug-in-waves 1
  64.             image
  65.             waves-layer
  66.             amplitude
  67.             phase
  68.             wavelength
  69.             0
  70.             FALSE)
  71.       
  72.      (set! remaining-frames (- remaining-frames 1))
  73.      (set! phase (- phase phaseshift))))
  74.  
  75.   (gimp-drawable-set-name source-layer "Frame 1")
  76.   (plug-in-waves 1
  77.          image
  78.          source-layer
  79.          amplitude
  80.          phase
  81.          wavelength
  82.          0
  83.          FALSE)
  84.  
  85.   (gimp-image-undo-enable image)
  86.   (gimp-display-new image)))
  87.  
  88.  
  89. (script-fu-register "script-fu-waves-anim"
  90.             _"_Waves..."
  91.             "Animate an image like a stone's been thrown into it"
  92.             "Sven Neumann <sven@gimp.org>"
  93.             "Sven Neumann"
  94.             "1997/13/12"
  95.             "RGB* GRAY*"
  96.             SF-IMAGE       "Image"            0
  97.             SF-DRAWABLE    "Drawable"         0
  98.             SF-ADJUSTMENT _"Amplitude"        '(10  1  101 1 10 1 0)
  99.             SF-ADJUSTMENT _"Wavelength"       '(10 .10 100 1 10 1 0)
  100.             SF-ADJUSTMENT _"Number of frames" '(6  1   512 1 10 0 1)
  101.             SF-TOGGLE     _"Invert direction" FALSE)
  102.  
  103. (script-fu-menu-register "script-fu-waves-anim"
  104.              _"<Image>/Script-Fu/Animators")
  105.